home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 November & December / rerun-1986-11-12.d64 / put it on paper (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  58 lines
  1. 1000 rem screen dump by m. rasmussen
  2. 1020 printchr$(14)"[147][212]his program will transfer
  3. 1030 [153]"whatever is printed on the screen to"
  4. 1040 [153]"your printer. atnll you have to do is"
  5. 1050 [153]"type <len(NULL)(NULL)(NULL)> (NULL)wait in the immediate mode."
  6. 1060 [153]"(NULL)rinting can be performed without "
  7. 1070 [153]"interfering with the running of"
  8. 1080 [153]"some programs."
  9. 1090 [131] 120,173,020,003,072,173,031,159
  10. 1100 [131] 141,020,003,104,141,031,159,173
  11. 1110 [131] 021,003,072,173,032,159,141,021
  12. 1120 [131] 003,104,141,032,159,088,096,033
  13. 1130 [131] 159,173,141,002,041,004,240,006
  14. 1140 [131] 165,197,201,041,240,003,108,031
  15. 1150 [131] 159,032,000,159,169,000,032,189
  16. 1160 [131] 255,169,255,172,024,208,192,021
  17. 1170 [131] 240,002,169,007,168,162,004,169
  18. 1180 [131] 030,032,186,255,032,192,255,032
  19. 1190 [131] 183,255,208,080,162,030,032,201
  20. 1200 [131] 255,032,183,255,208,070,169,025
  21. 1210 [131] 133,251,169,000,133,254,133,252
  22. 1220 [131] 169,004,133,253,177,252,141,167
  23. 1230 [131] 002,041,127,141,168,002,041,032
  24. 1240 [131] 208,009,173,168,002,024,105,064
  25. 1250 [131] 141,168,002,173,167,002,041,064
  26. 1260 [131] 240,009,173,168,002,024,105,064
  27. 1270 [131] 141,168,002,162,018,173,167,002
  28. 1280 [131] 048,012,138,009,128,170,165,254
  29. 1290 [131] 208,008,240,016,208,060,165,254
  30. 1300 [131] 208,010,138,032,210,255,169,255
  31. 1310 [131] 069,254,133,254,173,168,002,032
  32. 1320 [131] 210,255,200,192,040,208,173,160
  33. 1330 [131] 000,169,013,032,210,255,234,234
  34. 1340 [131] 234,234,234,198,251,240,019,024
  35. 1350 [131] 165,252,105,040,133,252,165,253
  36. 1360 [131] 105,000,133,253,169,000,133,254
  37. 1370 [131] 240,138,169,030,032,195,255,032
  38. 1380 [131] 204,255,032,000,159,108,031,159
  39. 1390 [153]"(NULL)oading (NULL)creen str$ump, please wait..."
  40. 1400 mt[178]256[172][194](56)[170][194](55):ba[178]mt[171]240
  41. 1410 [129] j[178]ba [164] ba[170]239:[135] t:[151] j,t:[130]
  42. 1420 [143] fix addresses
  43. 1430 j[178]ba[170]6:t[178]ba[170]31:[141] 1570:[151] j,tl:[151] j[170]1,th
  44. 1440 j[178]ba[170]13:[151] j,tl:[151] j[170]1,th
  45. 1450 j[178]ba[170]47:[151] j,tl:[151] j[170]1,th
  46. 1460 j[178]ba[170]238:[151] j,tl:[151] j[170]1,th
  47. 1470 j[178]ba[170]20:t[178]ba[170]32:[141] 1570:[151] j,tl:[151] j[170]1,th
  48. 1480 j[178]ba[170]27:[151] j,tl:[151] j[170]1,th
  49. 1490 j[178]ba[170]31:t[178]ba[170]33:[141] 1570:[151] j,tl:[151] j[170]1,th
  50. 1500 j[178]ba[170]50:t[178]ba:[141] 1570:[151] j,tl:[151] j[170]1,th
  51. 1510 j[178]ba[170]235:[151] j,tl:[151] j[170]1,th
  52. 1520 j[178]51:[151] j,tl:[151] j[170]1,th
  53. 1530 j[178]55:[151] j,tl:[151] j[170]1,th
  54. 1540 [158] (ba):[153]"(NULL)len(NULL)valval(NULL) str$(NULL)(NULL)(NULL) ready. (NULL)o disable or"
  55. 1550 [153]"re-enable, type:"
  56. 1560 [153]"           (NULL)(NULL)(NULL)"ba:[128]
  57. 1570 th[178][181](t[173]256):tl[178]t[171]th[172]256:[142]
  58.